﻿Public Class classFacturasPago
    Public Sub New(ByVal idtipo As Integer, ByVal pago As String, ByVal pmonto As Integer, ByVal idfactpagos As Integer)
        _idtipopago = idtipo
        _tipopago = pago
        _monto = pmonto
        _idfacturaspago = idfactpagos
    End Sub

    Private _idtipopago As String
    Public Property Id() As Integer
        Get
            Return _idtipopago
        End Get
        Set(ByVal value As Integer)
            _idtipopago = value
        End Set
    End Property

    Private _tipopago As String
    Public Property Tipo_Pago() As String
        Get
            Return _tipopago
        End Get
        Set(ByVal value As String)
            _tipopago = value
        End Set
    End Property

    Private _monto As String
    Public Property Monto() As Integer
        Get
            Return _monto
        End Get
        Set(ByVal value As Integer)
            _monto = value
        End Set
    End Property

    Private _idfacturaspago As Integer
    Public Property idfacturaspago() As Integer
        Get
            Return _idfacturaspago
        End Get
        Set(ByVal value As Integer)
            _idfacturaspago = value
        End Set
    End Property
End Class
